www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\admin_specialmanage.asp

    <!--#include file="../Include/Function.asp"-->
<!--#include file="../Include/CheckLogin.asp"-->
<%
	action 			= request("action")
	act 			= request("act")
	Special_ID  	= Request("Special_ID")
	
	Set Rs = Server.CreateObject("ADODB.Recordset")
	if action = "add" then
		sql = "Select * from CF_Special where 1>2"
		Rs.open Sql,conn,1,2
		Rs.AddNew
			Rs("Special_Name") 			= Request("Special_Name")
			Rs("Special_IsUse") 		= Request("Special_IsUse")
			Rs("Special_OrderBy") 		= Request("Special_OrderBy")			
			Rs("Special_AddTime") 		= Now()
			Rs("Special_ModifyTime")	= Now()
			Rs("Special_Operator") 		= Session("_AdminID")
		Rs.Update
		if err.number = 0 then
			Response.Redirect("Admin_SpecialManage.asp")
			Response.end
		end if
	elseif action = "edit" then
		sql = "Select * from CF_Special where Special_ID="&Request("Special_ID")
		Rs.open Sql,conn,1,2
		if not Rs.eof then
			Rs("Special_Name") 			= Request("Special_Name")
			Rs("Special_IsUse") 		= Request("Special_IsUse")
			Rs("Special_OrderBy") 		= UCase(Request("Special_OrderBy"))			
			Rs("Special_ModifyTime")	= Now()
			Rs("Special_Operator") 		= Session("_AdminID")
			Rs.Update
		end if
		if err.number = 0 then
			Response.Redirect("Admin_SpecialManage.asp")
			Response.end
		end if	
	elseif action = "del" then
		Sql = "Delete From CF_Special Where Special_ID="&Special_ID
		Conn.execute(Sql)
		Response.Redirect("Admin_SpecialManage.asp")
		Response.end
	end if
	
	if act = "edit" then
		Sql = "Select * from CF_Special Where Special_ID="&Special_ID
		Rs.open Sql,conn,1,2
		if not Rs.eof then
			Special_ID			= Rs("Special_ID")
			Special_Name 		= Rs("Special_Name")
			Special_IsUse 		= Rs("Special_IsUse")
			Special_OrderBy 	= Rs("Special_OrderBy")			
		end if
		Rs.Close
		Set Rs = Nothing
	end if
	if act = "" then act = "add"
%>

<script language="javascript">
<!--
	function frm_onsubmit(frm){
		var frm = eval(frm);
		if(frm.Special_Name.value==""){
			alert("类别名称不能为空！");
			frm.Special_Name.focus();
			return false;
		}
		if(frm.Special_OrderBy.value=="" || isNaN(frm.Special_OrderBy.value)){
			alert("类别的排序不能为空，且只能为数字!");
			frm.Special_OrderBy.focus();
			return false;
		}
		if(confirm("您确定要操作此类别吗？")){
			return true;
		}
		return false;
	}
	
	function isDel(id){
		if(confirm("您确定要删除此类别吗？")){
			location.href="Admin_SpecialManage.asp?Action=del&Special_ID="+id;
		}
	}
-->
</script>
<link href="images/Admin.css" rel="stylesheet" type="text/css">

<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
      <td>			  
			<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
			  <tr bgcolor="#EAEAEA"> 
			  	<td height="25" align="center">编号</td>
				<td align="center">页面名称</td>
				<td align="center">是否使用</td>
				<td align="center">排序</td>
				<td align="center">最后修改时间</td>
				<td align="center">操作人</td>
				<td align="center">操作</td>
			  </tr>
			  <%			  	
				sql="SELECT * From CF_Special order by Special_IsUse,Special_ID"
				set RS=conn.execute(sql)
			  
			  	while not Rs.eof 
			  %>
			  <tr<%= Tr_MouseOver %>> 
			  	<td height="22" align="center">&nbsp;<%=Rs("Special_ID")%></td>
				<td align="center">&nbsp;&nbsp;<%=rs("Special_Name")%></td>
				<td align="center"><%
						if Rs("Special_IsUse") = true then
							Response.write("使用")
						else
							Response.write("<font color='#ff0000'>不使用</font>")
						end if
					%></td>
				<td align="center">&nbsp;<%=rs("Special_OrderBy")%></td>
				<td align="center">&nbsp;<%=rs("Special_ModifyTIme")%></td>
				<td align="center">&nbsp;<% =Rs("Special_Operator") %></td>
				<td align="center"> 
					<a href="javascript:isDel(<%=Rs("Special_ID")%>);">删除</a> 
					<a href="Admin_SpecialManage.asp?act=edit&Special_ID=<%=Rs("Special_ID")%>">编辑</a>
				</td>
			  </tr>
			  <%
					Rs.MoveNext 
				Wend
			  %>
			</table>
			
			<br>
			
		<form action="Admin_SpecialManage.asp" method="post" onSubmit="return frm_onsubmit(this);" name="frmdata">
			<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
				<tr> 
					<td height="28" colspan="2" bgcolor="#EAEAEA">
					<strong>&nbsp;文章专题管理</strong></td>
				</tr>
				
				<tr bgcolor="#FFFFFF"> 
					<td width="17%" height="23">&nbsp;&nbsp;类别名称：</td>					
					<td width="83%" height="23"> 
					<input type="text" name="Special_Name" size="40" maxlength="40" value="<%=Special_Name%>"></td>
				</tr>
				
				<tr bgcolor="#FFFFFF"> 
					<td height="23">&nbsp;&nbsp;排列顺序：</td>					
				  <td height="23"> 
					<input type="text" name="Special_OrderBy" size="40" maxlength="50" value="<%=Special_OrderBy%>"></td>
		 	   </tr>
			   
			   <tr bgcolor="#FFFFFF"> 
					<td height="23">&nbsp;&nbsp;是否使用：</td>					
				  <td height="23">
				  <input type="radio" name="Special_IsUse" value="1" <% if Special_IsUse = true or Special_IsUse = "" then Response.write(" Checked") %>> 
				  使用
			      <input type="radio" name="Special_IsUse" value="0" <% if Special_IsUse = false then Response.write(" Checked") %>> 
			      不使用</td>
		 	   </tr>
		　　　
				<tr bgcolor="#EAEAEA"> 
					<td height="22" colspan="2" align="center">
						<input type="submit" name="Submit" value=" 提交 ">
						<input type="reset" name="Submit2" value=" 重置 ">
						
						<input type="button" name="button" value="重新添加" onClick="javascript:location.href='Admin_SpecialManage.asp';">
					  	<input type="hidden" name="Special_ID" value="<%=Special_ID%>">
						<input type="hidden" name="action" value="<%=act%>">
					</td>
				</tr>
			</table>
		</form>	
		
		
	</td>	
	</tr>
	<tr> 
	  <td height="22"><div align="right"></td>
	</tr>
</table>

<%  
Set Rs = Nothing 
Set Conn = Nothing 
%>